home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
090
/
vmenu.arc
/
BOOP.ASM
next >
Wrap
Assembly Source File
|
1985-11-30
|
718b
|
34 lines
include lmacros.h
procdef boop
push cx
push dx
in al,061h
push ax
and al,0fch
mov dl,10
more: xor al,2
out 061h,al
mov cx,0300h
hold: loop hold
dec dl
jnz more
and al,0fch
out 061h,al
pop ax
out 061h,al
pop dx
pop cx
pret
pend boop
;
finish
end